home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / visds / ddetest.dsc < prev    next >
Encoding:
Text File  |  1999-05-02  |  1014 b   |  38 lines
  1.   Title DDE Request Test
  2.   DIALOG CREATE,DDE Test,-1,0,276,216
  3.   DIALOG ADD,TEXT,TEXT1,10,10,,,DDE Server:
  4.   DIALOG ADD,EDIT,edServer,8,82,,,Progman
  5.   DIALOG ADD,TEXT,TEXT2,30,10,,,DDE Topic:
  6.   DIALOG ADD,EDIT,edTopic,28,82,,,Progman
  7.   DIALOG ADD,TEXT,TEXT3,50,10,,,DDE Item:
  8.   DIALOG ADD,EDIT,edItem,48,82,,,Progman
  9.   DIALOG ADD,BUTTON,Link,76,8
  10.   DIALOG ADD,LIST,lResult,74,82,,114
  11.   DIALOG ADD,STATUS,STATUS,Click the Link button to get the data using DDE
  12.   DIALOG ADD,BUTTON,Exit,164,8
  13.   DIALOG SHOW
  14. :evloop
  15.   wait event
  16.   goto @event()
  17. :LinkBUTTON
  18.   if @not(%C)
  19.     %S = @dlgtext(edServer)
  20.     %T = @dlgtext(edTopic)
  21.     DDE LINK,%S,%T
  22.     if @not(@OK())
  23.       dialog set,status,Failed to establish link with %S.
  24.     else
  25.       dialog set,status,Established link with %S
  26.       %C = 1
  27.     end
  28.   end
  29.   %I = @dlgtext(edItem)
  30.   list assign,lResult,@DDEITEM(%I)
  31.   dialog set,status,@count(lResult) items in list
  32.   goto evloop
  33. :exitBUTTON
  34. :close
  35.   if %C
  36.     DDE TERMINATE
  37.   end
  38.